home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h7.d64 / colour pict.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  683b  |  31 lines
  1. 10 REM **  COLOUR PICTURE DISPLAY   **
  2. 20 REM **                           **
  3. 30 REM **     DON WHITE             **
  4. 40 REM **     47 ARIEL COURT        **
  5. 50 REM **     NEPEAN, ONTARIO       **
  6. 60 REM **     613-829-2082          **
  7. 70 REM **                           **
  8. 80 REM *******************************
  9. 90 REM
  10. 100 REM ** DISPLAY HIRES SCREEN **
  11. 110 REM
  12. 115 PRINT"[147]":REM CLEAR COLOUR NYBBLE MAP
  13. 120 V=53248:REM VIDEO CHIP
  14. 130 POKEV+17,59:POKEV+24,25
  15. 140 REM
  16. 150 REM ** LOAD COLOUR DATA **
  17. 160 REM
  18. 170 OPEN8,8,8,"DIANE DATA.D,S,R"
  19. 180 FORI=0TO999
  20. 190 INPUT#8,CD
  21. 200 POKE1024+I,CD
  22. 210 NEXT
  23. 220 CLOSE8
  24. 230 GETRE$:IFRE$=""THEN230
  25. 240 REM
  26. 250 PRINT"[147]":REM CLEAR COLOUR NYBBLE MAP
  27. 260 REM
  28. 270 REM DISPLAY LORES SCREEN **
  29. 280 REM
  30. 290 POKEV+17,27:POKEV+24,21
  31.